Excel VBA 图片缩放-鼠标移上自动放大

Excel 图片永远都是经典的话题和VBA的重点功能，大家都用过淘宝或其它这类网店，在网店上商品展示时，有个预览小图，鼠标移到图片上，图片会自动展示一个大图，这个功能就是在Excel中实现类似的功能。

作者：江苏大侠-Office中国

Excel 图片缩放的操作动画：

详细的Excel VBA 图片缩放代码：

Option Explicit

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Type POINTAPI

    x As Long

    y As Long

End Type

Dim pd As Boolean, 鼠标位置图片, 前面已选图片

Sub 缩放图片()

    On Error Resume Next

    Dim 鼠标位置 As POINTAPI

    pd = True

    Do While pd = True

        GetCursorPos 鼠标位置

        Set 鼠标位置图片 = ActiveWindow.RangeFromPoint(鼠标位置.x, 鼠标位置.y)

        If 鼠标位置图片 Is Nothing Then

            GoTo 100

        Else

            If 鼠标位置图片.Name <> 前面已选图片.Name Then

                With 鼠标位置图片

                    .Width = .Width * 4

                    .Height = .Height * 4

                    .ShapeRange.ZOrder msoBringToFront

                End With

100:

                With 前面已选图片

                    .Width = .Width / 4

                    .Height = .Height / 4

                End With

            End If

        End If

        Set 前面已选图片 = 鼠标位置图片

        DoEvents

    Loop

End Sub

Sub 关闭缩放()

    pd = False

End Sub

Office中国源创技巧，转载请保留本部落说明

学好Excel,可以让你的工作效率成倍提高，让你的薪水也稳步增长，让你的职位也快速提升。

Excel不仅仅是电子表格，它有很多好玩的方式。努力学习吧，每天一个源创技巧，让你信心满满的。